home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / STRUCT4.LTG < prev    next >
Text File  |  1986-03-03  |  1KB  |  48 lines
  1.  
  2.  
  3.                             Listing 4
  4.  
  5. PROCEDUR┼ InventoryReport4;èBEGI╬ RECOR─ Card-set;
  6.       BOOLEA╬ out-of-cards¼ end-of-set;
  7.       Old-Card-item:╜ DummyValue;
  8.  
  9. PROCEDUR┼ Get-Card-Se⌠ (Card-Set¼ end-of-set¼ out-of-cards¼ Old-Card-item);
  10.  
  11. BEGI╬ 
  12. PROCEDUR┼ Fetch-CarΣ (Card¼ end-of-set¼ out-of-cards¼ Old-Card-item);
  13. BEGI╬ RECOR─ New-Card╗ 
  14. REA─ (New-Card);
  15. I╞ EOF(New-Card)
  16. THE╬ BEGIN
  17.      out-of-cards:╜ TRUE
  18.      end-of-set:╜ TRUE;
  19.      END
  20. ELS┼ I╞ (New-Card-iteφ <╛ Old-Card-item)
  21.      THE╬ BEGIN
  22.           end-of-set:╜ TRUE;
  23.           Old-Card-item:╜ New-Card-Item;
  24.           END
  25.      ELS┼ end-of-set:╜ FALSE;
  26. END;
  27.  
  28.      RECOR─ Card╗ 
  29.      end-of-set:╜ FALSE;
  30.      WHIL┼ NO╘ end-of-set
  31.      D╧ BEGIN
  32.         CAL╠ Fetch-CarΣ (Card¼ end-of-set¼ out-of-cards);
  33.         PERFOR═ Tall∙ (Card-set¼ Card);
  34.         END;
  35. EN─ oµ Get-card-set;
  36.  
  37. PROCEDUR┼ Computσ (Total¼ Card-set);
  38.      BEGI╬ dumm∙ statemen⌠ END;
  39. PROCEDUR┼ Output-report-linσ (Total)╗ 
  40.      BEGI╬ dumm∙ statemen⌠ END;
  41.    
  42. WHIL┼ NO╘ out-of-cards
  43. D╧ BEGIN
  44.    CAL╠ Get-Card-Se⌠ (Card-Set¼ end-of-set¼ out-of-cards);
  45.    CAL╠ Computσ (Total¼ Card-set);
  46.    CAL╠ Output-report-linσ (Total);
  47.    EN─ oµ highes⌠ boss;
  48. EN─ oµ InventoryReport4;